home *** CD-ROM | disk | FTP | other *** search
-
- #include "teglsys.h"
-
- unsigned easyquit(imagestkptr frame,msclickptr mouseclickpos)
- {
- if (getyesno(250,150,"Are you sure"))
- abort_msg("Bye....");
-
- return 1;
- }
-
- unsigned easyerror(imagestkptr frame,msclickptr mouseclickpos)
- {
- errmess(250,150,"Fake error occured in Programmer");
- return 1;
- }
-
- unsigned easymessage(imagestkptr frame,msclickptr mouseclickpos)
- {
- framefromicon(frame,mouseclickpos,150,150,250,250);
- prepareforupdate(stackptr);
- frametext(stackptr,1,2,"First Line");
- frametext(stackptr,2,2,"Second Line");
- frametext(stackptr,3,2,"Third Line");
- commitupdate();
-
- return 1;
- }
-
-
-
- void main()
- {
- easytegl();
-
- activebutton(100,100,"QUIT",easyquit);
- activebutton(150,100,"ERROR",easyerror);
- activebutton(220,100,"MESSAGE",easymessage);
-
- teglsupervisor();
- }